﻿Public Class ResetPassword
	Inherits System.Web.UI.Page

	Public Property key As String
		Get
			Return Me.ViewState("key")
		End Get
		Set(ByVal value As String)
			Me.ViewState("key") = value
		End Set
	End Property

	Public Property seckey As String
		Get
			Return Me.ViewState("seckey")
		End Get
		Set(ByVal value As String)
			Me.ViewState("seckey") = value
		End Set
	End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

		If Not Page.IsPostBack Then
			Me.key = Me.Request.QueryString("key")
			Me.seckey = Me.Request.QueryString("seckey")


			If String.IsNullOrEmpty(Me.key) Then
				Me.txtConfirmNewPassword.Enabled = False
				Me.txtNewPassword.Enabled = False
				Me.Button1.Enabled = False
				Master.Alert("ท่านไม่สามารถเปลี่ยนรหัสผ่านตามที่ร้องข้อได้ กรุณากดลิ้งค์ในเมล์ที่ท่านได้รับใหม่")
			Else

				Dim appid As String = Nothing
				appid = Me.key

				Try
					Me.hfOfficerId.Value = BL.Officer.CheckKeyForResetPassword(Me.seckey)
				Catch ex As Exception
					Me.txtConfirmNewPassword.Enabled = False
					Me.txtNewPassword.Enabled = False
					Me.Button1.Enabled = False
					Common.LogError.AddLogException(ex)
					Master.Alert("ไม่สามารถถอดรหัสค่าในการเปลี่ยนรหัสผ่านได้ กรุณาติดต่อเจ้าหน้าที่")
				Finally

				End Try

				If String.IsNullOrEmpty(Me.hfOfficerId.Value) Then
					Me.txtConfirmNewPassword.Enabled = False
					Me.txtNewPassword.Enabled = False
					Me.Button1.Enabled = False
					Master.Alert("ไม่สามารถดึงข้อมูลรหัสการใช้งานได้ กรุณาติดต่อเจ้าหน้าที่")
				End If

				Me.txtAppId.Text = appid
			End If
		End If

    End Sub

	Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
		Try
			BL.Officer.ChangePassword(Me.txtAppId.Text, Me.txtNewPassword.Text, Me.hfOfficerId.Value)
			Me.txtConfirmNewPassword.Enabled = False
			Me.txtNewPassword.Enabled = False
			Me.Button1.Enabled = False
			Master.Alert("ท่านได้ทำการเปลี่ยนรหัสผ่านเรียบร้อยแล้ว")
		Catch ex As Exception
			Master.Alert(ex.Message)
		End Try
	End Sub

	Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
		Response.Redirect("login.aspx", False)
	End Sub
End Class